home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2000-11-12 | 1.2 KB | 51 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="4"
- "COUNT"="1"
- "UIPATH"="Program Options\Microsoft Office\MS Office 2000\Visio 2000"
- "NAME"="Visio 2000 Store"
- "VERSION"="1.01"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Drawings Store"
- "DESCRIPTION 1"="To change Visio 2000's drawings storage folder, browse to location of choice."
- "AUTHOR"="Ojatex@aol.com"
- "CONTACTURL"="http://members.aol.com/ojatex/"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
- "COMMENT 2"="Thanks to CptSiskoX for tip."
-
- sPath="HKCU\Software\Visio\Visio 2000\application\"
-
- sDrawing="HKCU\Software\Visio\Visio 2000\application\DrawingsPath"
-
- Sub Plugin_Initialize
- if RegPathExists(sPath) then
- s=RegReadValue(sDrawing)
- SetUIElement 1,s
-
- else
- Disable
- end if
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- s=GetUIElement(1)
- if len(s)=0 then
- Call MsgError("Unable to update information - Path for Drawings is not valid")
- else
-
- if Right(s,1)="\" then
- s=left(s,len(s)-1)
- end if
- Call RegWriteValue(sDrawing,s,1)
-
- end if
-
-
- End Sub
-
- Sub Plugin_Terminate
- End Sub
-